home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
nan_news
/
vol3
/
no3
/
epsilon.prg
< prev
next >
Wrap
Text File
|
1988-11-01
|
338b
|
15 lines
* Program: Epsilon.prg
* Author: Grant Nesheim
* Version: Clipper Summer '87
* Note(s): Calculate machine epsilon for Clipper and the host
* machine.
*
* Copyright (c) 1988 Nantucket Corp.
i = 1.00
DO WHILE (1.00 + 10.00^-(i+1.00)) > 1.00
i = i + 1.00
ENDDO
? "Epsilon is 1.00 x 10.00^-"+LTRIM(STR(i))
RETURN